﻿Imports Ultimus.WFServer
Imports beCapitalAdicional
Partial Public Class frmGeneracionArchivoSBSPrc
    Inherits System.Web.UI.Page

    Private ruta As String
    Private nombrePaso As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If Not Page.IsPostBack Then
                ' Cargar Variables Ultimus 
                Dim staskid As String = Request.Cookies("TaskId").Value
                Session("TaskId") = staskid
                Dim oTask As New Task
                oTask.InitializeFromTaskId(staskid)
                nombrePaso = oTask.strStepName

                ' Cargar fomrmulario
                Title = nombrePaso
                lblTitulo.Text = nombrePaso

                CargarArchivo()
                ConfigurarScripts()
            End If
        Catch ex As Exception

        End Try
    End Sub
    Private Sub ConfigurarScripts()
        ruta = HttpContext.Current.Request.Url.Scheme + "://" + HttpContext.Current.Request.Url.Authority + HttpContext.Current.Request.ApplicationPath

        btnComentario.Attributes.Add("onclick", "VerComentario('" + ruta + "');")
        btnTrazabilidad.Attributes.Add("onclick", "VerTrazabilidad('" + ruta + "');")
        imbRetornar.Attributes.Add("onclick", "VerPasoRetroceso('" + ruta + "','" + nombrePaso + "');")

    End Sub
    Private Sub CargarArchivo()
        'Dim lstArchivo As New List(Of beArchivo)

        'Dim objReporte1 As New beArchivo
        'objReporte1.Nombre = "Reporte 4A"
        'objReporte1.Ruta = "www.google.com"
        'objReporte1.FechaGeneracion = Date.Now.ToShortDateString
        'objReporte1.Log = "--"
        'lstArchivo.Add(objReporte1)

        'Dim objReporte2 As New beArchivo
        'objReporte2.Nombre = "Anexo 3"
        'objReporte2.Ruta = "www.google.com"
        'objReporte2.FechaGeneracion = Date.Now.ToShortDateString
        'objReporte2.Log = "--"
        'lstArchivo.Add(objReporte2)

        'Dim objReporte4 As New beArchivo
        'objReporte4.Nombre = "Anexo 4"
        'objReporte4.Ruta = "www.google.com"
        'objReporte4.FechaGeneracion = Date.Now.ToShortDateString
        'objReporte4.Log = "--"
        'lstArchivo.Add(objReporte4)

        'Dim objReporte3 As New beArchivo
        'objReporte3.Nombre = "Reporte 4 B1"
        'objReporte3.Ruta = "www.google.com"
        'objReporte3.FechaGeneracion = Date.Now.ToShortDateString
        'objReporte3.Log = "--"
        'lstArchivo.Add(objReporte3)

        'Dim objReporte5 As New beArchivo
        'objReporte5.Nombre = "Reporte 4 B2"
        'objReporte5.Ruta = "www.google.com"
        'objReporte5.FechaGeneracion = Date.Now.ToShortDateString
        'objReporte5.Log = "--"
        'lstArchivo.Add(objReporte5)

        'Dim objReporte6 As New beArchivo
        'objReporte6.Nombre = "Reporte 4 B3"
        'objReporte6.Ruta = "www.google.com"
        'objReporte6.FechaGeneracion = Date.Now.ToShortDateString
        'objReporte6.Log = "--"
        'lstArchivo.Add(objReporte6)

        'Dim objReporte7 As New beArchivo
        'objReporte7.Nombre = "Reporte 4 C"
        'objReporte7.Ruta = "www.google.com"
        'objReporte7.FechaGeneracion = Date.Now.ToShortDateString
        'objReporte7.Log = "--"
        'lstArchivo.Add(objReporte7)

        'Dim objReporte8 As New beArchivo
        'objReporte8.Nombre = "Reporte 4 D"
        'objReporte8.Ruta = "www.google.com"
        'objReporte8.FechaGeneracion = Date.Now.ToShortDateString
        'objReporte8.Log = "--"
        'lstArchivo.Add(objReporte8)

        'gvwArchivo.DataSource = lstArchivo
        'gvwArchivo.DataBind()
    End Sub

    Function DatetoString(ByVal objDate As DateTime) As String
        Dim resultado As String = ""
        If Not (objDate = DateTime.MinValue OrElse (objDate.Year = 1900 AndAlso objDate.Month = 1 AndAlso objDate.Day = 1) OrElse (objDate.Year = 1 AndAlso objDate.Month >= 1 AndAlso objDate.Day >= 1)) Then
            resultado = objDate.ToString("dd/MM/yyyy")
        End If
        Return resultado
    End Function

    Protected Sub btnGenerar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGenerar.Click
        CargarArchivo()
    End Sub

    Protected Sub imbEnviar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imbEnviar.Click
        Dim sUser As String = Request.Cookies("UserId").Value
        Dim staskid As String = Request.Cookies("TaskId").Value

        Dim oTask As New Task
        oTask.InitializeFromTaskId(staskid)
        Dim nIncident As Integer = 0
        Dim sError As String = ""
        oTask.Send(Nothing, Nothing, Nothing, nIncident, sError)

        ScriptManager.RegisterStartupScript(Me, Page.GetType, "Aviso", "window.close();", True)
    End Sub

End Class